home *** CD-ROM | disk | FTP | other *** search
/ Java Programmer's Toolkit / Java Programmer's Toolkit.iso / gs3.53 / markhint.ps < prev    next >
Text File  |  1996-01-10  |  3KB  |  113 lines
  1. %    Copyright (C) 1994 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % markhint.ps
  19. % Draw the hints for a Type 1 font.
  20.  
  21. (type1ops.ps) run
  22.  
  23. /mhsetup        % <matrix> <print> mhsetup -
  24.  { /mhprint exch def
  25.    /mhmx exch def
  26.    /mhdash 0 9 gsave initmatrix dtransform grestore idtransform add abs def
  27.    gsave
  28.    clippath pathbbox
  29.    2 index sub /bbh exch def
  30.    2 index sub /bbw exch def
  31.    /bby exch def
  32.    /bbx exch def
  33.    grestore
  34.  } def
  35.  
  36. /markfonthints        % <matrix> <print> markfonthints -
  37.  { mhsetup
  38.  } def
  39.  
  40. /hmark            % <y> hmark -
  41.  { bbx exch moveto bbw 0 rlineto stroke
  42.  } def
  43. /vmark            % <x> vmark -
  44.  { bby moveto 0 bbh rlineto stroke
  45.  } def
  46. /pmark            % <x> <y> pmark -
  47.  { newpath 0 4.5 gsave initmatrix dtransform grestore idtransform add abs
  48.    0 360 arc stroke
  49.  } def
  50. /mchdict mark
  51.   /hsbw { pop 0 mhmx transform translate 0 0 pmark }
  52.   /sbw { pop pop mhmx transform translate 0 0 pmark }
  53.   /hstem
  54.    { mhprint { (hstem ) print 2 copy 2 packedarray == } if
  55.      1 index add exch gsave
  56.      [mhdash] 0 setdash 0 exch mhmx transform exch pop hmark
  57.      [mhdash 2 div dup 2 mul] 0 setdash 0 exch mhmx transform exch pop hmark
  58.      grestore
  59.    }
  60.   /vstem
  61.    { mhprint { (vstem ) print 2 copy 2 packedarray == } if
  62.      1 index add exch gsave
  63.      [mhdash] 0 setdash 0 mhmx transform pop vmark
  64.      [mhdash 2 div dup 2 mul] 0 setdash 0 mhmx transform pop vmark
  65.      grestore
  66.    }
  67.   /callothersubr
  68.    { 3 eq
  69.       { pop
  70.         % We're replacing hints; lighten the color.
  71.     currentrgbcolor 3 { 2 mul 3 div 3 1 roll } repeat setrgbcolor
  72.       }
  73.       { { pop } repeat
  74.       } ifelse
  75.    }
  76.   /callsubr
  77.    { Private /Subrs get exch get mchinterp
  78.    }
  79.   /pop
  80.    {
  81.    }
  82.   /return
  83.    {
  84.    }
  85. .dicttomark def
  86.  
  87. /mchinterp        % <charstring> mchinterp -
  88.  { 4330 exch dup length string .type1decrypt exch pop
  89.    dup length lenIV sub lenIV exch getinterval
  90.    0 () /SubFileDecode filter
  91.    mark exch charstack_read ]
  92.     { dup type /nametype eq
  93.        { mchdict exch .knownget { exec } { cleartomark mark } ifelse
  94.        }
  95.       if
  96.     }
  97.    forall
  98.  } def
  99.  
  100. /markcharhints        % <charname> <matrix> <print> markcharhints -
  101.  { mhsetup
  102.    gsave mark
  103.    /Private currentfont /Private get def
  104.    Private rcheck    % make sure we won't get an access error
  105.     { /lenIV Private /lenIV .knownget not { 4 } if def
  106.       currentfont /CharStrings get 3 -1 roll get mchinterp
  107.     }
  108.     { (Sorry, this font is protected; I can't show the hints.\n) print flush
  109.     }
  110.    ifelse
  111.    cleartomark grestore
  112.  } def
  113.